﻿Global camList:TList
Global activeCam:TCamera

Rem
	bbdoc: Управляет обзором в игре
End Rem
Type TCamera
	Field camX, camY:Int
	Field camwidth:Int, camheight:Int
	Field zoom:Float
	
	Function Create:TCamera(zoom:Float, camX:Int = 0, camY:Int = 0)
		t:TCamera=New TCamera
		t.zoom = zoom
		t.camX = camX
		t.camY = camY
		camList.AddLast(t)
		Return t
	End Function
	
	Method GetCamX()
		Return camX
	End Method
	Method GetCamY()
		Return camY
	End Method
End Type
